TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/R-Shows/(c)expo87.d64/tpug membership

Commodore BASIC | 2007-02-04 | 4KB | 147 lines

100 DIM CHOICE$(50)
200 REM:N$=0:AD$=0:C$=0:PR$=0:PC$=0:AC$=0:HN$=0:CA$=0:BN$=0:MP$=0:CC$=0:ED$=0TA$=0
300 POKE 53280,0:POKE53281,0 :POKE 646,6:PRINT"[147]"
400 FORI=1TO120
500 N=(RND(1)*16)+1:B$=MID$("[144][159][156][158][129][149][150][151][152][153][154][155]",N,1):PRINTSPC(N)B$".";:NEXTI
600 PRINT"":PRINT"":PRINTSPC(15)
700 PRINT"T ";:GOSUB 12200:GOSUB 1600
800 PRINT"P ";:GOSUB 12200:GOSUB 1600
900 PRINT"U ";:GOSUB 12200:GOSUB 1600
1000 PRINT"G ": GOSUB 12200:GOSUB 1600
1100 PRINTSPC(16)
1200 PRINT"I ";:GOSUB 12200:GOSUB 1600
1300 PRINT"N ";:GOSUB 12200:GOSUB 1600
1400 PRINT"C ":GOSUB 12200:GOSUB 1600
1500 GOTO 1800
1600 FORI=1TO100:NEXTI
1700 RETURN
1800 FORW=1TO100 :NEXT W
1900 PRINT
2000 PRINTSPC(8)
2100 PRINT"MEMBERSHIP APPLICATION"
2200 FOR D = 1 TO 2000 : NEXT D
2300 PRINT"[147]":PRINTTAB(15)"TPUG"
2400 PRINT
2500 INPUT "NAME: ";N$
2600 INPUT "ADDRESS: ";AD$
2700 INPUT "CITY: ";C$
2800 INPUT "PROV/STATE: ";PR$
2900 INPUT "POSTAL CODE: ";PC$
3000 INPUT "MEMBERSHIP NUMBER: ";MN$
3100 PRINT "HOME NUMBER: "::PRINT:INPUT "AREA CODE: ";AC$:INPUT "NUMBER: ";HN$
3200 PRINT "BUSINESS NUMBER:":PRINT:INPUT "AREA CODE: ";CA$:INPUT "NUMBER: ";BN$
3300 INPUT "COMPUTER('S) OWNED: ";CO$
3400 INPUT "DISK DRIVE('S): ";DD$
3500 PRINT"[147]"
3600 PRINT"WHAT TYPE OF MEMBERSHIP DO YOU WANT ?"
3700 PRINT:PRINT"1) REGULAR (ATTEND MEETINGS)   $35 (CDN)"
3800 PRINT"2) STUDENT (ATTEND MEETINGS)   $25 (CDN)"
3900 PRINT"3) ASSOCIATE (CANADA)          $25 (CDN)"
4000 PRINT"4) ASSOCIATE (U.S.A.)          $25 (U.S)"
4100 PRINT"5) ASSOCIATE (FOREIGN SEA MAIL)$35 (U.S)"
4200 PRINT"6) ASSOCIATE (FOREIGN AIR MAIL)$45 (U.S)"
4300 PRINT"   ASSOCIATE CLUB (10 MEMBERS)":PRINT
4400 PRINT "   SAVE $5 PER PERSON":PRINT
4500 INPUT "WHAT TYPE OF MEMBERSHIP DO YOU WANT";ME$
4600 IF ME$<"1"OR ME$>"6" THEN PRINT"[145]":GOTO4500
4700 IF ME$="1" THEN M$="REGULAR" :ME$="35.00 (CDN)"
4800 IF ME$="2" THEN M$="STUDENT":ME$="25.00 (CDN)"
4900 IF ME$="3" THEN M$="ASSOCIATE (CDN)":ME$="25.00 (CDN)"
5000 IF ME$="4" THEN M$="ASSOCIATE (U.S)":ME$="25.00 (U.S)"
5100 IF ME$="5" THEN M$="FOREIGN SEA MAIL":ME$="35.00 (U.S)"
5200 IF ME$="6" THEN M$="FOREIGN AIR MAIL":ME$="45.00 (U.S)"
5300 GOTO 5400
5400 GOSUB 12000
5500 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
5600 PRINT "METHOD OF PAYMENT":PRINT
5700 PRINT "1) MONEY ORDER/CHECK":PRINT
5800 PRINT "2) VISA":PRINT
5900 PRINT "3) MASTERCARD":PRINT
6000 INPUT "CHOOSE ONE: ";MP$
6100 IF MP$ ="1" THEN MP$="MONEY ORDER/CHECK":GOTO 7800
6200 IF MP$="2" THEN GOTO 6400
6300 IF MP$="3" THEN GOTO 7100
6400 GOSUB 12000
6500 MP$="VISA"
6600 PRINT "CREDIT CARD "MP$:PRINT
6700 INPUT "CARD NUMBER: ";CC$
6750 PRINT:PRINT "PLEASE ENTER NUMBERS ONLY NO COMMA'S ETC"
6800 INPUT "EXPIRY DATE: ";ED$
6900 PRINT "AMOUNT OWED ";TA$;:PRINT" $";ME$
6950 FOR H=1 TO 2000:NEXT H
7000 GOTO8300
7100 GOSUB 12000
7200 MP$="MASTERCARD"
7300 PRINT "CREDIT CARD "MP$:PRINT
7400 INPUT "CARD NUMBER: ";CC$
7450 PRINT:PRINT "PLEASE ENTER NUMBERS ONLY NO COMMA'S ETC"
7500 INPUT "EXPIRY DATE: ";ED$
7600 PRINT "AMOUNT OWED ";TA$;:PRINT" $";ME$
7650 FOR I=1 TO 2000:NEXT I
7700 GOTO8300
7800 GOSUB 12000
7900 PRINT "PLEASE MAKE CHECKS OR MONEY ORDERS "
8000 PRINT "PAYABLE TO     TPUG INC":PRINT:PRINT
8100 PRINT "AMOUNT OWED ";TA$;:PRINT" $";ME$
8150 FOR G=1 TO 2000:NEXT G
8200 GOTO 8300
8300 PRINT"[147]":PRINT"[158]IS YOUR PRINTER ON"
8302 GETK$:IF K$=""THEN GOTO8302
8304 IF K$ = "Y" THEN GOTO8350
8306 IF K$="N"THEN GOTO 8308
8307 GOTO8302
8308 PRINT:PRINT"IS IT ON NOW ?"
8310 GETD$:IF D$=""THEN GOTO8310
8312 IF D$ = "Y" THEN GOTO8350
8314 GOTO8310
8350 REM PRINT ROUTINE
8400 OPEN 4,4
8500 CMD4
8600 PRINT#4
8700 PRINT#4,"                            TPUG INC"
8800 PRINT#4,"                         MEMBERSHIP FORM"
8900 PRINT#4,"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
8902 PRINT#4,"[180] MEMB # [180]TYPE[170] WHERE[170]CODE[180]GR#[180]ALT CODE[180]EXP[180]SOURCE[180]FOR OFFICE  [170]"
8906 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][181]USE ONLY    [170]"
8908 PRINT#4,"[180]        [180]     [180]      [180]   [180]   [180]        [180]   [180]      [180]            [170]"
8910 PRINT#4,"[180]        [180]     [180]      [180]   [180]   [180]        [180]   [180]      [180]            [170]"
8990 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
9000 PRINT#4
9100 PRINT#4,"NAME: ";N$;
9200 PRINT#4,"    ADDRESS: ";AD$
9300 PRINT#4,"CITY: ";C$;
9400 PRINT#4,"   PROV/STATE: ";PR$
9500 PRINT#4,"POSTAL CODE:  ";PC$
9600 PRINT#4,"MEMBERSHIP NUMBER: ";MN$
9700 PRINT#4,"HOME NUMBER:  ";
9800 PRINT#4,"  AREA CODE: ";AC$;
9900 PRINT#4,"    NUMBER: ";HN$
10100 PRINT#4,"BUSINESS NUMBER:   ";
10200 PRINT#4,"  AREA CODE: ";CA$;
10300 PRINT#4,"  NUMBER: ";BN$
10400 PRINT#4
10500 PRINT#4,"COMPUTER OWNED:    ";CO$;
10700 PRINT#4,"    DISK DRIVE OWNED:  ";DD$
10800 PRINT#4
10900 PRINT#4,"METHOD OF PAYMENT: ";MP$
11000 PRINT#4
11100 PRINT#4,"CREDIT CARD #: ";CC$;
11200 PRINT#4,"  EXPIRY DATE:  ";ED$
11300 PRINT#4
11400 PRINT#4,"SIGNATURE:         "
11500 PRINT#4
11600 PRINT#4,"MEMBERSHIP TYPE:   ";M$;
11700 PRINT#4,"  MEMBERSHIP COST:   ";ME$
11800 PRINT#4
11900 END
12000 PRINT"[147]":PRINTSPC(9)"MEMBERSHIP FORM":PRINT:PRINT
12100 RETURN
12200 REM BELL
12300 FOR R=54272 TO 54296:POKER,0:NEXT
12400 POKE 54296,15
12500 POKE 54275,8:POKE54277,0:POKE 54278,240
12600 POKE 54272,87:POKE 54273,188
12700 POKE 54276,65
12800 POKE 54276,64:POKE 54296,0
12900 RETURN